vb中怎么把"780"改成"087"

Private Sub Form_click()
Dim x%
x = Int(Rnd * 900 + 100)
a = x \ 100
c = x Mod 10
b = ((x / 100 - a) * 100 - c) / 10
Print x
Print Tab(2); c & b & a
End Sub

Private Sub Command1_Click()
a = "780"
a = StrReverse(a)
MsgBox a
End Sub

在文本框中输入整数(字符都可以)都可以反向输出:
比如你输780就会出现087

Private Sub Command1_Click()

a = Text1.Text
a = StrReverse(a)
MsgBox a
End Sub